home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
A-COMAL Series
/
(k)aao.d64
/
bootslow
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2009-01-24
|
1KB
|
45 lines
1 REM OPEN15,8,15,"S0:BOOTSLOW":CLOSE15:SAVE "0:BOOTSLOW",8
10 PRINT "[147]"; : REM CLEAR SCREEN
20 POKE 53281,0: REM BACKGROUND BLACK
25 POKE 53280,0: REM BORDER BLACK
27 PRINT ""; : REM PENCOLOR GREEN
100 PRINT "[147][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
110 PRINT " COMAL 0.14 IS BEING LOADED NOW... ";
120 PRINT
130 PRINT "[153] THIS BOOT PROGRAM WORKS WITH ALL DISK";
145 PRINT " DRIVES. IF YOU HAVE A 1541 OR 1571,"
150 PRINT " NEXT TIME YOU CAN FASTLOAD COMAL WITH";
151 PRINT " THE FOLLOWING COMMANDS:
152 [153]
153 [153] "LOAD "[199](34)"FASTBOOT"[199](34)",8"
154 [153] "RUN"
155 [153]
156 [153] "ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^";
160 [153] "(null) DEFFOR MORE INFO SEND SASE TO: (null)";
162 [153] "-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<";
170 [153] "(null) SYSCOMAL USERS GROUP, U.S.A., LIMITED (null)";
180 [153] "(null) SYS6041 MONONA DRIVE (null)";
185 [153] "(null) SYSMADISON, WI 53716 (null)";
190 [153] "(null) SYS608-222-4432 (null)";
200 [153] "/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP";
210 [153]
230 [153] " COMAL PROGRAMS CAN ONLY BE EXECUTED"
240 [153] " AFTER THE LANGUAGE HAS BEEN LOADED."
245 [153] "OPEN"; : [143] PENCOLOR CYAN
275 [153] "POSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOS";
280 [153] " BACKUP THIS DISK BEFORE YOU USE IT WAIT";
899 [143]
900 [143]
910 [143] CHAIN"HI + <RETURN KEY>
920 POKE 198,9
930 POKE 631,ASC("C")
940 POKE 632,ASC("H")
950 POKE 633,ASC("A")
960 POKE 634,ASC("I")
970 POKE 635,ASC("N")
980 POKE 636,34
990 POKE 637,ASC("H")
1000 POKE 638,ASC("I")
1010 POKE 639,13
1020 LOAD "C64 COMAL 0.14",8